//----------------------------------------------------------------------------//

function TMenuItem()

   static oClass

   if oClass == nil
      oClass = TClass():New( "TMENUITEM" )

      oClass:AddData( "cPrompt" )
      oClass:AddData( "cMsg" )
      oClass:AddData( "bAction" )
      oClass:AddData( "oMenu" )

      oClass:AddMethod( "New", @New() )

      oClass:Create()
   endif

return oClass:Instance()

//----------------------------------------------------------------------------//

static function New( cPrompt, bAction )

   local Self := QSelf()

   ::cPrompt = cPrompt
   ::bAction = bAction

return Self

//----------------------------------------------------------------------------//
